home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / demoversionen / anwendungen / ezpager / install-ezpager < prev    next >
Text File  |  1997-11-06  |  9KB  |  368 lines
  1. ;  $VER: InstallEZPager 1.7 (31.10.97) Copyright © 1996-1997 Falke & Bierei GbR, Berlin
  2.  
  3. (set destdev "DH0:")
  4. (set destdir "EZPager")
  5. (set Program_dest destdev)
  6.  
  7. (set @default-dest "")
  8.  
  9. (set p_pfad "EZPager")
  10. (set p_name  "EZPager")
  11.  
  12. (set current_dir (expandpath ""))
  13.  
  14. (set defuser @user-level)
  15.  
  16. (set vernum (getversion))
  17. (set os_ver (/ vernum 65536))
  18. (set os_rev (- vernum (* os_ver 65536)))
  19.  
  20. (set ivernum @installer-version)
  21. (set iver (/ ivernum 65536))
  22. (set irev (- ivernum (* iver 65536)))
  23.  
  24. (if (= @user-level 0) (user 1))
  25. (set def 0)
  26. (user defuser)
  27.  
  28. (set lang_english 0)
  29. (set lang_deutsch 1)
  30. (set lang_builtin lang_english)
  31.  
  32. (set language lang_builtin)
  33. (if (= "english" @language) (set language lang_english))
  34. (if (= "deutsch" @language) (set language lang_deutsch))
  35.  
  36. (if (= iver 0) (
  37.     (set #langhelp "Please choose your language\nBitte Sprache auswählen")
  38.     (set language (askchoice
  39.             (choices "English" "Deutsch")
  40.             (prompt #langhelp)
  41.             (help #langhelp)
  42.             (default language)
  43.         )
  44.     )
  45. ))
  46.  
  47. (if (= language lang_deutsch) (
  48.    (set #chdir "Bitte Verzeichnis für \n%s auswählen")
  49.    (set #chdirhelp "Sie müssen jetzt den Pfad des Verzeichnisses angeben, in das die Dateien kopiert werden sollen.\nNoch nicht vorhandene Verzeichnisse können von diesem Installationprogramm aus angelegt werden und mit einem Schubladen-Icon versehen werden.")
  50.  
  51.    (set #gdisk "Bitte legen Sie die Diskette \"%s\" in ein Laufwerk Ihrer Wahl.")
  52.    (set #gdhelp "Die Diskette \"%s\" wird benötigt, damit alle Dateien des %s in das angegebene Zielverzeichnis kopiert werden können.")
  53.  
  54.    (set #lchelp "Wählen Sie den EZPager Sprachen-Katalog der installiert werden soll.")
  55.    (set #askcatdir "In welchem Verzeichnis soll der Sprachen-Katalog installiert werden?")
  56.  
  57.    (set #iconnew "\nWollen Sie das bereits bestehende EZPager-Icon mit dem Icon von der Installationsdiskette überschreiben?\nWenn Sie bereits ToolTypes verändert haben, sollten Sie 'Nein' wählen.\n")
  58.    (set #owhelp "Wenn Sie diesen Requester mit 'Ja' beantworten, wird eine eventuell schon vorhandene %sVersion überschrieben!")
  59.    
  60.    (set #askinstall1 "Wollen sie das Hauptprogramm erneut installieren?")
  61.    (set #askinstall2 "Wollen sie das Hauptprogramm mit der Version %ld.%ld installieren?")
  62.    (set #installed1 (cat "Die Version %ld.%ld des Programmes \"%s\" ist vermutlich schon komplett in dem angegebenen Zielverzeichnis installiert.\n" #askinstall1))
  63.    (set #installed2 (cat "ACHTUNG! In dem angegebenen Zielverzeichnis befindet sich bereits die Version %ld.%ld des Programmes \"%s\".\n" #askinstall2))
  64.  
  65.    (set #ppart1 "Hauptprogramm")
  66.    (set #ppart2 (cat #ppart1 "s"))
  67.  
  68.    (set #newer "neuere ")
  69.    (set #older "ältere ")
  70.    (set #no "Nein")
  71.    (set #yes "Ja")
  72. )
  73. (
  74.    (set #chdir "Please select a directory for \nthe %s\n")
  75.    (set #chdirhelp "You have to specify now the path of the drawer in which all files shall be copied.\nNon existant drawers can be created from within this install script including their accompanying icons.")
  76.  
  77.    (set #gdisk "Please insert disk \"%s\" in a drive of your choice.")
  78.    (set #gdhelp "The disk \"%s\" is needed to copy all files of the %s into the specified drawer.")
  79.  
  80.    (set #lchelp "Please select the language catalog to be installed")
  81.    (set #askcatdir "In which drawer do you want the catalog to be installed?")
  82.  
  83.    (set #iconnew "\nDo you want the existing EZPager-Icon to be copied over by the new icon from the install disk?\nChoose 'No' if you have already modified some tooltypes.\n")
  84.    (set #owhelp "If you respond to this requester with 'Yes', a possibly existing %sversion will be written over!")
  85.  
  86.    (set #askinstall1 "Do you want to install the main program again?")
  87.    (set #askinstall2 "Do you want to install the main program with version %ld.%ld?")
  88.    (set #installed1 (cat "Version %ld.%ld of the program \"%s\" presumedly has already been installed completely.\n" #askinstall1))
  89.    (set #installed2 (cat "ATTENTION! Version %ld.%ld of the program \"%s\" already exists in the specified drawer.\n" #askinstall2))
  90.  
  91.    (set #ppart1 "main program")
  92.    (set #ppart2 #ppart1)
  93.  
  94.    (set #newer "newer ")
  95.    (set #older "older ")
  96.    (set #no "No")
  97.    (set #yes "Yes")
  98. ))
  99.  
  100.  
  101. (procedure copyMain
  102.     (chooseDir)
  103.  
  104.     (set prog_pfad p_pfad)
  105.     (set prog_name p_name)
  106.  
  107.     (set source_disk prog_pfad)
  108.     (set md (exists (cat source_disk ":") (noreq)))
  109.     (if (= md 0)
  110.         (
  111.             if (<> (exists (prog_name)) 1)
  112.                 (getDisk)
  113.         )
  114.     )
  115.     (if (= md 0) (set prog_pfad ""))
  116.  
  117.     (if (<> prog_pfad "")
  118.         (set sdir (cat prog_pfad ":"))
  119.         (set sdir "")
  120.     )
  121.     (set file (tackon sdir prog_name))
  122.     (set dfile (tackon @default-dest prog_name))
  123.  
  124.     (if (= (exists (tackon sdir "Catalogs")) 2)    (askCats))
  125.  
  126.     (checkMain)
  127.  
  128.     (if (= docopy 1)
  129.         (
  130.             (docopyMain)
  131.  
  132.             (if (= (exists (tackon sdir "Catalogs")) 2)    (docopyCats))
  133.  
  134.             (set dfile "EZPager.guide")
  135.             (set file (tackon sdir dfile))
  136.             (docopyGuides)
  137.  
  138.             (set dfile "ReadMe.guide")
  139.             (set file (tackon sdir dfile))
  140.             (docopyGuides)
  141.  
  142.             (set dfile "EZPagerFAQ.guide")
  143.             (set file (tackon sdir dfile))
  144.             (docopyGuides)
  145.  
  146.         )
  147.     )
  148. )
  149.  
  150. (procedure askCats
  151.     (set catalog (askchoice
  152.             (choices "English" "Deutsch")
  153.             (prompt #lchelp)
  154.             (help #lchelp)
  155.             (default language)
  156.         )
  157.     )
  158.  
  159.     (if (= catalog lang_english) (set #ulcat "english"))
  160.     (if (= catalog lang_deutsch) (set #ulcat "deutsch"))
  161.  
  162.     (if (= catalog lang_builtin) (set #ulcat ""))
  163.     (if (<> #ulcat "") (
  164.         (set catdirc (askchoice
  165.                 (choices (tackon @default-dest (cat "Catalogs/" #ulcat)) (cat "LOCALE:Catalogs/" #ulcat) )
  166.                 (prompt #askcatdir)
  167.                 (help #askcatdir)
  168.                 (default 0)
  169.             )  
  170.         )
  171.  
  172.         (if (= catdirc 0) (
  173.             (set catdir @default-dest)
  174.         )(
  175.             (set catdir "LOCALE:")
  176.             (if (< (exists "LOCALE:" (noreq)) 2) (
  177.                 (makedir "sys:Locale")
  178.                 (makeassign "LOCALE" "sys:Locale")
  179.             ))
  180.             )
  181.         )
  182.     ))
  183. )
  184.  
  185. (procedure docopyCats
  186.     (if (<> #ulcat "") (
  187.         (if (< (exists (tackon catdir "Catalogs")) 2)
  188.             (makedir (tackon catdir "Catalogs"))
  189.         )
  190.         (if (< (exists (tackon catdir (cat "Catalogs/" #ulcat)) ) 2)
  191.             (makedir (tackon catdir (cat "Catalogs/" #ulcat)) )
  192.         )
  193.         (copylib
  194.             (source (cat (tackon sdir "Catalogs/") #ulcat "/EZPager.catalog"))
  195.             (dest (tackon catdir (cat "Catalogs/" #ulcat)) )
  196.             (optional "nofail")
  197.         )
  198.     ))
  199. )
  200.  
  201. (procedure docopyGuides
  202.     (if (= (exists file) 1)
  203.         (copyfiles
  204.             (source file)
  205.             (dest Program_dest)
  206.             (infos)
  207.             (optional "nofail")
  208.         )
  209.     )
  210.  
  211.     (if (>= os_ver 39)
  212.         (tooltype
  213.             (dest (tackon Program_dest dfile))
  214.             (setdefaulttool "MultiView")
  215.         )
  216.         (tooltype
  217.             (dest (tackon Program_dest dfile))
  218.             (setdefaulttool "AmigaGuide")
  219.         )
  220.     )
  221. )
  222.  
  223. (procedure docopyMain
  224.     (if (exists (cat (tackon Program_dest prog_name) ".info"))
  225.         (set nocopyicon (askchoice    (choices #yes #no)
  226.                                             (prompt #iconnew)
  227.                                             (help   #iconnew)
  228.                                             (default 1)
  229.                         )
  230.         )
  231.         (set nocopyicon 0)
  232.     )
  233.  
  234.     (if (= nocopyicon 1)
  235.         (
  236.             (copyfiles
  237.                 (source file)
  238.                 (dest Program_dest)
  239.                 (optional "force")
  240.             )
  241.         )
  242.         (
  243.             (copyfiles
  244.                 (source file)
  245.                 (dest Program_dest)
  246.                 (infos)
  247.                 (optional "force")
  248.             )
  249.         )
  250.     )
  251. )
  252.  
  253. (procedure checkMain
  254.     (if (= (exists dfile) 1)
  255.         (
  256.             (set ver_source (getversion file))
  257.             (set ver_s (/ ver_source 65536))
  258.             (set rev_s (- ver_source (* ver_s 65536)))
  259.  
  260.             (set ver_dest (getversion dfile))
  261.             (set ver_d (/ ver_dest 65536))
  262.             (set rev_d (- ver_dest (* ver_d 65536)))
  263.  
  264.             (if (= ver_source ver_dest)
  265.                 (
  266.                     (set vprompt (#installed1 ver_s rev_s prog_name))
  267.                     (set vhelp (#owhelp ""))
  268.                     (set docopy
  269.                         (askbool
  270.                             (prompt    vprompt)
  271.                             (help        vhelp)
  272.                             (choices #yes #no)
  273.                         )
  274.                     )
  275.                     (if (= @user-level 0) (set docopy 1))
  276.                 )
  277.             )
  278.             (if (< ver_source ver_dest)
  279.                 (
  280.                     (set vprompt (#installed2 ver_d rev_d prog_name ver_s rev_s))
  281.                     (set vhelp (#owhelp #newer))
  282.                     (set docopy
  283.                         (askbool
  284.                             (prompt    vprompt)
  285.                             (help        vhelp)
  286.                             (choices #yes #no)
  287.                         )
  288.                     )
  289.                     (if (= @user-level 0) (set docopy 0))
  290.                 )
  291.             )
  292.             (if (> ver_source ver_dest)
  293.                 (
  294.                     (set vprompt (#installed2 ver_d rev_d prog_name ver_s rev_s))
  295.                     (set vhelp (#owhelp #older))
  296.                     (set docopy
  297.                         (askbool
  298.                             (prompt    vprompt)
  299.                             (help        vhelp)
  300.                             (choices #yes #no)
  301.                         )
  302.                     )
  303.                     (if (= @user-level 0) (set docopy 1))
  304.                 )
  305.             )
  306.         )
  307.  
  308.         (
  309.             (set docopy 1)
  310.         )
  311.     )
  312. )
  313.  
  314. (procedure chooseDir
  315.     (set ptext (#chdir #ppart1))
  316.  
  317.     (if (= (exists destdev (noreq)) 0)
  318.         (
  319.             (set destdev (cat (getdevice "sys:") ":"))
  320.             (set Program_dest destdev)
  321.         )
  322.     )
  323.     (set Program_dest (cat destdev destdir))
  324.     (set @default-dest Program_dest)
  325.  
  326.     (set Program_dest
  327.         (askdir
  328.             (prompt  ptext)
  329.             (help        #chdirhelp)
  330.             (default    Program_dest)
  331.             (newpath)
  332.             (disk)
  333.         )
  334.     )
  335.  
  336.     (if (= @default-dest Program_dest)
  337.         (
  338.             (if (= (exists @default-dest) 0)
  339.                 (
  340.                     (makedir @default-dest
  341.                             (infos)
  342.                     )
  343.                 )
  344.             )
  345.         )
  346.         (
  347.             (set @default-dest Program_dest)
  348.         )
  349.     )
  350.  
  351.     (user defuser)
  352. )
  353.  
  354. (procedure getDisk
  355.     (set gdhelp (#gdhelp source_disk #ppart2))
  356.     (set vprompt (#gdisk source_disk))
  357.  
  358.     (askdisk
  359.         (prompt    vprompt)
  360.         (help        gdhelp)
  361.         (dest        source_disk)
  362.     )
  363. )
  364.  
  365. (copyMain)
  366.  
  367. (exit)
  368.